home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER3 / POP / POP.PI < prev   
Text File  |  1994-01-01  |  1KB  |  68 lines
  1. // POP.PI
  2. // Cut Away Blob Shape
  3.  
  4. include "\ply\colors.inc"
  5.  
  6. start_frame 0
  7. end_frame 179
  8. total_frames 180
  9. outfile "pop"
  10.  
  11. define pi 3.14159
  12. define rad pi/180
  13.  
  14. background SkyBlue
  15. light <1.0,1.0,1.0>,<10,12,10>
  16.  
  17. define weird_shape
  18. object {
  19.    blob 6.6:
  20.       7, 3.0,<  0,  0,  0 >,
  21.       3, 1.0,<  1,  1,  1 >,
  22.       3, 1.0,< -1,  1,  1 >,
  23.       3, 1.0,<  1, -1,  1 >,
  24.       3, 1.0,< -1, -1,  1 >,
  25.       3, 1.0,<  1,  1, -1 >,
  26.       3, 1.0,< -1,  1, -1 >,
  27.       3, 1.0,<  1, -1, -1 >,
  28.       3, 1.0,< -1, -1, -1 >,
  29.       3, 1.0,<  0,  1,  1 >,
  30.       3, 1.0,<  0,  1, -1 >,
  31.       3, 1.0,<  0, -1,  1 >,
  32.       3, 1.0,<  0, -1, -1 >,
  33.       3, 1.0,<  1,  0,  1 >,
  34.       3, 1.0,<  1,  0, -1 >,
  35.       3, 1.0,< -1,  0,  1 >,
  36.       3, 1.0,< -1,  0, -1 >,
  37.       3, 1.0,<  1,  1,  0 >,
  38.       3, 1.0,<  1, -1,  0 >,
  39.       3, 1.0,< -1,  1,  0 >,
  40.       3, 1.0,< -1, -1,  0 >
  41.    root_solver Sturm
  42.    u_steps 20
  43.    v_steps 20
  44.    reflective_coral
  45.    }
  46.  
  47. define ang 360*frame/total_frames
  48.  
  49. // range needs to be 0.52 to 1.66
  50. define breath 0.57*cos(rad*ang)+1.09
  51.  
  52. object {
  53.    weird_shape 
  54.  & object { sphere <0, 0, 0>, breath }   // clip it by a breathing sphere
  55.    rotate <0, ang,0>
  56.    }
  57.  
  58. viewpoint {
  59.    from <1.3*breath,1.8*breath,0.0>
  60.    at <0.0,0.0,0.0>
  61.    up <0,1,0>
  62.    angle 50
  63.    resolution 320,200
  64.    aspect 1.433
  65.    }
  66.  
  67. 
  68.